home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / isetl.arc / file.t < prev    next >
Text File  |  1987-08-20  |  482b  |  33 lines
  1. f:= openw("abc");
  2. for i in [1..10] do
  3.     print i to f;
  4. end;
  5. close(f);
  6.  
  7. f := openr("abc");
  8. t := [];
  9. while not eof(f) do
  10.     read i from f;    $ NB Will read an om, but
  11.     t := t with i;    $ t with om = t
  12. end;
  13. close(f);
  14.  
  15. print t = [1..10];
  16.  
  17. f:= opena("abc");
  18. for i in [1..10] do
  19.     print i to f;
  20. end;
  21. close(f);
  22.  
  23. f := openr("abc");
  24. t := [];
  25. while not eof(f) do
  26.     read i from f;    $ NB Will read an om, but
  27.     t := t with i;    $ t with om = t
  28. end;
  29. close(f);
  30.  
  31. print t = [1..10] + [1..10];
  32.  
  33.